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Abstract 

We present some methods and results in the application of algebraic geometry 
and computer algebra to the study of algebraic vector bundles, foliations and 
zeta functions. A connection of the methods and results with noncommutative 
geometry will be consider. 

Introduction 

This is a work on perspective. 

In the survey I want to discuss algebraic and computer algebra aspects of vector 
bundles, foliations and zeta functions from commutative and noncommutative 
geometry points of view. I shall do it on the base of some parts of papers 
of A. Connes E|, H. Moriyoshi Q and N. Nekrasov and A. Schwarz on 
noncommutative torus, operator algebras, and instantons on noncommutative 
R 4 , of A. Connes and D. Kreimer |J on renormalization and the Hopf algebra 
structure of graphs and D. Broadhurst and D. Kreimer || on renormalization 
automated by Hopf algebra. Algebraic varieties appears in many mathematical 
and physical problems (strings as algebraic curves, some Calabi-Yau manifolds). 
So I want mention some novel papers on computer algebra [Q, ||, |i| which have 
strong connections with algebraic geometric. 

In section 1 we give formulae for computation of local charts, tangent bundles 
and transition functions of two dimensional sphere. These formulae (and some 
formulae of the next subsection) can be implemented on computer algebra sys- 
tems (Reduce, Maple) straightforward. Most formulae are tested by author on 
different versions of Reduce and Maple. Then we discuss vector bundles over 
algebraic curves, Kronecker foliation, formal groups, moduli spaces and connec- 
tions. 

As have noted by A. Connes (lj, there is "a spectral interpretation of zeros of 
zeta and L- functions in terms of constructions involving adeles, more specifically 
the noncommutative space of adele classes" . In section 2 we give formulae for 
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computation of values of some zeta and L-functions. 

Section 3 presents very short discussion of the algebraic context of noncommu- 
tative geometry. 

For some problems it is necessary to programming them from the beginning 
(elementary data stuctures, efficient algorithm). A useful standpoint of solv- 
ing a variety of problems is to model them in terms of some graphs (still 1959 
F. Harary has proposed a graph method for complete reduction of a matrix 
with a view toward finding its eigenvalues [0). These include trees, branch- 
ing and connectivity with cutset of graphs, covering problems, networks and 
flows, matching and maximal matching. Graphs can modeling commutative 
diagrams and complexes as well as Feynman diagrams. Under interaction of 
strings manifolds of varying dimension can appear. Solving differential equa- 
tions on the manifolds by an iterative method (for instance, by Newton map 
Nf(x) = x — [Df(x)]^ 1 f(x)) we have to compute Jacobian. The efficien algo- 
rithm can be implemented by the cutset method. In the Appendix we give our 
implementation of the cutset algorithm. 

Side by side with works of above-mentioned authors, the survey based on my 
talks on SCAN2000 @, Banach Center (Warsaw) conference ||, SAGP'99 
(Luminy, France), IMACS-ACA Mittag-Leffier seminar "Geometry and 

Physics" (1998), Math. Institute of Stockholm University seminar "Algebra 
and Geometry" @, Dubna'98 §§ and on SNADE'97 §7|. 
So the purpose of the talk is two-fold: first to review algebraic geometric and 
computer algebra aspects of vector bundles, foliations and zeta functions; sec- 
ond to disscuss some noncommutative context of the structures and methods in 
the frame of algebraic and analytic computations. 

1 Geometry, Topology and Dynamics 

As elements of differential geometry Jl5) and differential topology Jll], [l(| play an 

important role in our consideration we recall for spesialists in computer science 

notions of local charts, atlases, differentiable manifold and tangent bundles by 

the example of two dimensional sphere S 2 : x\ + x\ + x\ = 1. 

Local charts as half-spheres of S 2 . 

In the case local charts are (Ui, ipi), where 

x = (xi,x 2 ,x 3 ), Ui = (x e S 2 : Xi > 0), U 3+i = (x e S 2 : Xi < 0), 

i = 1, 2, 3; \Jj—iUj = S 2 and maps tpi : Ui —> R 2 are follows 

<Pi{x2,X3) ■ «i = x 2 ,u 2 = x 3 ; 
f2(xi,x 3 ) : Vi = xi,v 2 = x 3 ; 
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f3 {Xl , X2) : Wl = X\ , W2 = X2\ 



Maps ip4,if5, ipe are defined by symmetry. 
The intersection Ux n U 2 ^ 0. So 



Vl{X2,X 3 ) = {ui,u 2 ), <P2{xi,x 3 ) = {vi,v 2 ). 



and the map 



ipiOip 2 = (U2 = v 2 ,ui = J I - v{ - v\ ) 



is a C r — diffeomorphism between open sets (fi(Ui n J7 2 ) and ^2(^1 H J7 2 ). The 
diffcomorphism o tp^ 1 is called the changes of coordinates. 
Local charts and stereographies projection of S 2 . 
In the case there are two charts 

^ = (S2\(0,0,l)| Vl = (-5-,-^-)) 

1 X3 1 X3 

and 

C/ 2 = (S 2 \ (0, 0, -1) 1 ^ = (-2-, — ^— )) 

1 + £3 1 + x 3 

Now 

C/in[/ 2 = (ie5 2 | H < l). 

Let (ui, 112), (vi,v 2 ) be local coordinates at U\,U2 respectively. In the intersec- 
tion Ui n u 2 

-1 _ / 2ui 2u 2 « 2 + u 2 -L 

^ ~ X + U 2 + l' u 2 + u 2 + 1 ' u 2 + u 2 + 1 )> 

_! _ . 2wi 2w 2 1 - 1; 2 - m 2 . 

^ ~ X + v 2 + 1 ' « 2 + v 2 + 1 ' v 2 + v 2 + 1 1 

and in the case 

ipi o ^ 2 " 1 (w 1 ,w 2 ) = (ui,U2), and ip 2 o ^(ui, u 2 ) = («i,u 2 ), 

Again we have diffeomorphisms between <fii(Ui n C/ 2 ) and y 2 (C/i n £/ 2 ). 

Tangent bundles of one and two-spheres 5* 1 and S* 2 . 

Here we recall tangent bundles of S* 1 and S 2 . In both cases the tangent bundle 
is a diffcrcntiablc manifold. Tangent bundle TS 1 of S 1 is the product S 1 x R. 
Therefore TS 1 is a trivial bundle and manifold S 1 is parallelizable. 
Tangent bundle TS 2 of S* 2 can be defined by 3 local charts (in the sense of 
vector bundles; see below). Let U t = {x e S 2 \\x t \ < 1). Then [f i=1 Ui = 5 ' 2 - 
Let E be the set (x, t) in R 3 x R 3 with x € S 2 as above and t — (u, v, w) such 
that scalar product < x,t >— 0. Let p : (x,t) 1— > a; be the projection _E on S 12 . 
Homcomorphisms 
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(xi,X 2 ,X 3 ]U,V,w) I ► (x 1 ,X 2 ,X 3 ]VX3 - WX2,U), 

$2 : P _1 (C/ 2 ) -> (U 2 x R 2 ) 
(xi,x 2 ,x 3 ;w, w, w) i * (xi,x 2 ,x 3 ;wxi - 1113,11), 

$3 : P" 1 ^) - (C/ 3 x R 2 ) 

(xi,x 2 ,x 3 ;u, v, to) h-> (xi,x 2 ,x 3 ;ux 3 - ra 2 ,w), 

define atlas ([/,, of tangent bundle TS 2 . There is well known fact that TS 2 
is not trivial bundle and therefore the manifold S 2 is not parallelizable. 
The above tangent bundles of spheres are really vector bundles. This means 
that in the case of S 2 there are unique continuous mappings 

gy : UiMJj -»GL(2,R), 

such that the mapping 

= *< o Qj 1 : (J/* n Uj) x r 2 -» (t/i n £/,) x r 2 , 

satisfies ipij = (x, gij (x)y) for every (x, y) e (Uj n f/j) x R 2 . In the case TS 2 the 
transition functions are follows: 



92i{x) 

932 (x) 
513(a) 



-1 



^2 + x § 



37 ^ "I - «2J ^ 

-1 



x x x 2 x 3 

-X 3 XiX 2 

X 2 X 3 Xl 

-xi x 2 x 3 

XlX 3 x 2 

-X 2 XiX 3 



1.1 Vector Bundles 

More generally we can give a manifold by charts and local diffeomorphisms. 
Local chart or a system of coordinates on a topological space M is a pair (f7, ip) 
where U is an open set in M and ip : U — > R m is a homeomorphism from 
{/ to an open set ^(t/) in R m . An atlas $ of dimension to is a collection of 
local charts whose domains cover M and such that if (U,ip),(Ui,ipi) € $ and 
[/flt/i^O then the map 

<p 1 o : (p(unUi) -> 93i(?7n f/i) 

is a C r -diffcomorphism between open sets in R m . 

Fi&re space is the object (E,p,B), where p is the continuous surjective (= on) 
mapping of a topological space E onto a space B (in our consideration B = M 
is a differential manifold), and p _1 (o) is called the fibre above b e _B. Both the 
notation p : E — > f? and (-E,p, -B) are used to denote a fibration, a /i&re space, a 
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fibre bundle or a bundle. 

Vector bundle is fibre space each fibre of which is endowed with the 

structure of a (finite dimension) vector space V over skew-field K such that the 
following local triviality condition is satisfied: each point b £ B has an open 
neighborhood U and a V -isomorphism of fibre bundles cj) : —> U x V 

such that <p P~ l {b) — > b x is an isomorphism of vector spaces for each 

beB. 

dimV is said to be the dimension of the vector bundle. 

An Hermitian bundle over algebraic variety X consists of a vector bundle over 
X and a choice of C°° Hermitian metric on the vector bundle over complex 
manifold X(C), which is invariant under antiholomorphic involution of X(C). 

Tangent bundle 0, ||, |§. 
The tangent space to a diffcrentiablc manifold M at point a € M can be defined 
as the set of tangency classes of smooth paths in M based at a. It will be 
denoted by T a M. Elements of T a M are called tangent vectors to M at a. 
The tangent bundle of M, denoted by TM, is the union of the tangent spaces 
at all the points of M. By well known way TM can be made into a smooth 
manifold. 

Recall well known facts about TM : 

(i) if M is C r then TM is C" 1 ; 

(ii) if M is C*°° or C w then the same holds for TM; 

(iii) if M has dimension n then TM has dimension 2n; 

(iv) there is a natural map p : TM — > M called the projection map, taking T a M 
to a for each a in M, i.e. p takes all tangent vectors at a to the point a itself. 
Thus p^ 1 (a) = T a M (fibre of the bundle over a). The projection p is a smooth 
map C r - X if M is C r ; 

Vector fields and Flows. 

A vector field on a smooth manifold M is a map F : M — > TM which satisfies 
p o F — idisi, where p is the natural projection TM — > Af. By its definition a 
vector field is a section of the bundle TM. 

Let F be a vector field on M . A solution curve to T, based at a on M is a 
path c : / — > M (where J is some open interval (a, 6) with a < < 6 ) satisfying 
c(0) = a and T t c = F(c(t)) for all < in 1. (Here TJ = 7 x R and so T t c is a 
map R — * TA7. This demonstrate the well known fact that a vector field on a 
manifold is the global version of a first order autonomous system of n ordinary 
differential equations on R™. 
Let 

x = Ax, (2) 

where x g R™, A is n x n matrix, be a linear system of ordinary differential 
equations. It is well known that the solution of the system (2) together with 
the initial condition x(0) = xo is given by 

x(t) = e At x , 
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where e is an n x n matrix function denned by its Taylor series. The mapping 
e At . pn _^ pn j s ca ii e( j i/jg fl ow j \% n e ar system (2). 

Recall the definition of the flow 4>t of the nonlinear system 

x = F(x), (3) 

Let I(jX-o) be the maximal interval of existence of the solution (f>(t, Xo) of (2) with 
the initial value x(0) = Xo. Let X be an open subset of R™ and let F £ C 1 (X). 
For xo € X, let 0(t,xo) be the solution of (3) with initial value problem x(0) = 
xo defined on its maximal interval of existence /(xo). Then for t € -f(xo), the 
mapping <j> t : X — > X defined by 

(^t(xo) = 0(i,x o ) 

is called the flow of the differential equation (1) or the flow of the vector field 
F(x). 

1.2 Vector Bundles over Projective Algebraic Curves 

Let X be a projective algebraic curve over algebraically closed field k and g the 
genus of X. Let VB{X) be the category of vector bundles over X. Grothendieck 
have shown that for a rational curve every vector bundle is a direct sum of line 
bundles. Atiyah have classified vector bundles over elliptic curves. The main 
result is 

Theorem IT3]. Let X be an elliptic curve, A a fixed base point on X. We may 
regard X as an abelian variety with A as the zero element. Let £{r, d) denote 
the the set of equivalence classes of indecomposable vector bundles over X of 
dimension r and degree d. Then each £(r, d) may be identified with X in such 
a way that 

det : £(r,d) — > E (1, d) corresponds to H : X — > X, 

where H(x) = hx = x + x + • • • + x {h times), and h = (r, d) is the highest 
common factor of r and d. 

Curve X is called a configuration if its normalization is a union of projective 
lines and all singular points of X are simple nodes. For each configuration X can 
assign a non-oriented graph A(X), whose vertices are irreducible components of 
X, edges are its singular and an edge is incident to a vertex if the corresponding 
component contains the singular point. Drozd and Greuel have proved: 
Theorem 113). 1. VB(X) contains finitely many indecomposable objects up to 
shift and isomorphism if and only if X is a configuration and the graph A(X) 
is a simple chain (possibly one point if X = P 1 ). 

2. VB{X) is tame, i.e. there exist at most one-parameter families of indecom- 
posable vector bundles over X, if and only if either X is a smooth elliptic curve 
or it is a configuration and the graph A(X) is a simple cycle (possibly, one loop 
if X is a rational curve with only one simple node). 

3. Otherwise VB(X) is wild, i.e. for each finitely generated A:— algebra A there 
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exists a full embedding of the category of finite dimensional A— modules into 
VB{X). 

Let X be an algebraic curve. How to normalize it? There are several meth- 
ods, algorithms and implementations for this purpose. A new algorithm and 
implementation is presented in Q . 

1.3 Foliations 

A simplest example of foliation is a trivial k dimensional foliation or a trivial 
codimension n — k foliation of Euclidean space R™ = R* x R n ~ fc , < k < n : 

R"= |J R fe x (x k+1 ,...,x n ), 

(x k+1 ,...,x n ) 

that is, R n decomposes into a union of R fe x (xk+i , ■ ■ ■ , x n ) 's each of which is 
C°° diffcomorphic to R fc . R fc x (xk+i, ■ ■ ■ , x n ) is called a leaf of the foliation. 
Still one example can be obtained from consideration of nonsingular vector 
fields on the torus |4^, More generally, a nonsingular flow on a manifold 
corresponds to a foliation on the manifold by one dimensional leaves where the 
leaves are provided with Riemannian metrics and directed. 
Consider vector field 

Q(x,y)dx + P(x,y)dy, (1) 

where P and Q are complex polynomials of degree n in two variables. The 
vector field (or corresponding dual 1-form to — P{x,y)dx — Q{x,y)dy) gives 
rise to a foliation T of degree n of two dimensional projective space P 2 over 
C by Riemann surfaces and singular points. It is naturally to ask about limit 
cycles and multivalued first integrals of (|l|) and a topology of the foliation. The 
investigation of (1) began in [Q, where the case n — 2 considered. For the 
investigation of (1) and T it is naturally to introduce of algebraic geometric 
methods and algebraic geometric invariants ^l). These include blow-ups, 
divisors, indexes of singular points, Chern classes of vector bundles over some 
Riemann surfaces and computation of holonomy (monodromy) groups. Already 
in the case of the complex dimension of the space of coefficients of (1) is 
equal 12 (real dimension is equal 24). This defines the application of computer 
algebra in the case. 



1.3.1 Kronecker foliation 

I^J Let 9 be a irrational number. Consider a vector field F = dx + Ody on the 
two dimensional torus T 2 = R/Z x R/Z. The Kronecker foliation Tg is defined 
by the flow of F in the following way: each leaf is labeled by a point of circle 
S 1 = R/Z. So the leaf space is the foliated bundle 

(R x R/Z)/Z, (x, y)~(x+ 1, y + 0), 
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where the equivalence relation on (x, y) G R x S 1 is defined by 

Rg(x, y) = (x,y + 9) mod 1. 

By the foliation Te the C*-algebra Ae is constracted. Ae is generated by a pair 
of unitary symbols subject to the relation 

UV = exp(2iri8)VU. (2) 

1.3.2 Formal Groups 

Formal groups was introduced by J. Dieudonne and M. Lazard around 1954. 
During 1968-71 and later were found interesting connections between topology 
and formal groups ]22] , p3[ . Also was found connection between formal groups 
and zeta functions J25fl . There is a connection of formal groups with characteris- 
tic classes of foliations and K— theory J24|. The construction of the Grothendiesk 
group Kq for algebraic monoid is rather simple [^7j . What is the Kq functor in 
the case of formal groups? Let us consider a simple example. 
Proposition. Let TQk be the category of commutative formal groups over field 
k such that every formal group in the category is the product of one dimensional 
formal groups. Then Ko(J-Qk) is a free abelian group with infinite number of 
generators. 



1.3.3 Moduli spaces 

The theory of moduli spaces j2^, ^9) has, in recent years, become the meeting 
ground of several different branches of mathematics and physics - algebraic ge- 
ometry, instantons, differential geometry, string theory and arithmetics. Here 
we recall some underlieing algebraic structures of the relation. In previous 
subsection we have reminded the situation with vector bundles on projective 
algebraic curves X. On X any first Chern class c\ E H 2 (X, Z) can be realized 
as ci of vector bundle of prescribed rank (dimension) r. How to classify vec- 
tor bundles over algebraic varieties of dimension more than 1? This is one of 
important problems of algebraic geometry and the problem has closed connec- 
tions with gauge theory in physics and differential geometry. Mamford [j28| and 
others have formulated the problem about the determination of which cohomol- 
ogy classes on a projective variety can be realized as Chern classes of vector 
bundles? Moduli spaces are appeared in the problem. What is moduli? Classi- 
cally Riemann claimed that 3g — 3 (complex) parameters could be for Riemann 
surface of genus g which would determine its conformal structure (for elliptic 
curves, when g = 1, it is needs one parameter). From algebraic point of view 
we have the following problem: given some kind of variety, classify the set of 
all varieties having something in common with the given one (same numerical 
invariants of some kind, belonging to a common algebraic family). For instance, 
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for an elliptic curve the invariant is the modular invariant of the elliptic curve. 
Let B be a class of objects. Let S be a scheme. A family of objects parametrized 
by the S is the set of objects 

X s : s e S, X s G B 

equipped with an additional structure compatible with the structure of the 
base 5*. Parameter varieties is a class of moduli spaces. These varieties is very 
convenient tool for computer algebra investigation of objects that parametrized 
by the parameter varieties. We have used the approach for investigation of 
rational points of hyperelliptic curves over prime finite fields ]30[| . 

1.4 Connection 

Consider the connection in the context of algebraic geometry. We shall base 
at one I. Shafarevitch's seminar on algebraic geometry. Let S/k be the smooth 
scheme over field k, U an element of open covering of S, 0$ the structure sheaf 
on S, T(U,Os) the sections of Os on U. Let £lgi k be the sheaf of germs of 
1— dimension differentials, T be a coherent sheaf. The connection on the sheaf 
T is the sheaf homomorphism 

V : T - n s/k ® 

such that, if / G V(U, O s ), g G T(U,T) then 

There is the dual definition. Let T be the locally free sheaf, Q s / k the dual to 
sheaf fig/ fc ) d G r(U,Qg, k ). The connection is the homomorphism 

p : 0^ /fc - EndosiT^T). p(d)(fg) = d(f)g + fp(d). 

1.4.1 Integration of connection 

Let rtg/ k be the sheaf of germs of i— differentials, 

V J (a ®f)=da®f + {-l) l a A V(/) 
Then V, V 1 define the sequence of homomorphisms: 

T -» VL x sjk n 2 s/k ® T -» • • • , (3) 

A connection is integrable if (0) is a complex. This is equivalent to V (g> V 1 =0. 
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2 Zeta Functions 



We have considered some validated numerics aspects of evaluation of zeta func- 
tions in papers |J3|, |32|. Here we shall consider some computer algebra aspects 
of computation and evaluation of values of zeta functions. 



2.1 Riemann zeta 

Consider the series £(s) = J2 n f° r complex values of s with Re(s) > 1. 
Analytical formula for computation of values of the £(s) can be taken from the 
result of Backlund (a little bit reformulated). The result is based of Euler- 
Maclaurin summation. 

Proposition (Backlund) Let N be natural > 1. Let s = a + it and let a > 1. 
Let B 2 k be the Bernoulli numbers in even numeration, 
S(iV-l )S )=E^ 1 1 n- s + ^, 

B(N, k, s) = ±N- S + ^sN- 3 - 1 + ■■■ + j^s(s + 1) . . . (s + 2k - 2)N- N - 2k+1 . 
Then 

£(s)=S{N-l,s)+B(N,k,s)+R 2k , (4) 

where 



|#2fc- 2 | < 



2.2 Dirichlet series 



s 



2k -1 



a + 2k - 1 



B 2k term of 



Let K = Q(V-D) be a real quadratic field with positive integer squarefree D 
and x( n ) — (^) be the Kronecker symbol. Here 



A = 



D, D = 1 (mod 4) , 
AD, D = 2,3 (mod 4). 



Let A = tt/A, E(x) = f™ ^dt, erfc(x) = f J™ e^dt. 
Proposition J35|, p4| . 

L(l,x) = -7=Y, x(n)E(An 2 ) + £ ( ^ J erfc(nVA) + R n 



where \R m \ < A ^ 2 



7r^ m° 



2.3 Remarks about L— functions of elliptic curves 

Let E/Q be an elliptic curve given in Weierstrass form by an equation 

E : y 2 + aixy + a 3 y = x 3 + a 2 x 2 + a 4 x + a 6 , (5) 
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and let 62, 64, be, b$, a, cq, A, j be the usual associated quantities Let 
now (H) be a global minimal Weierstrass equation for E over Z. For each prime 
p the reduction (||) (mod p) defines a curve E p over the prime field F p . Let 
A p denote the number of points of E p rational over F p . Let 

t p = 1 + p — A p . 

If p /fA, then t p is the trace of Frobenius and satisfies \T p \ < 2^/p. In the case 
Artin-Hasse zeta function of the elliptic curve Ep is 1 

i-t pP - s +P 1 - 2 * 
Cg > ) = (i- p -)(i- p i-) - (6) 

If p I A, then £"p is not an elliptic curve and has a singularity S. In the case 

0, if S is a cusp, 

1, if 5* is a node, 

— 1, if S is a node with tangent quadratic over F p 
The Hasse-Weil L— function of E/Q is defined by equation 

= n a-lps) n 1 _ tpP - s+p x-2s- ( 7 ) 

From the work of A. Wiles, R. Taylor and A. Wiles, and work of F. Diamond it 
is known that (semistable) elliptic curves over -E/Q are modular. Knowing the 
modularity of E/Q is equivalent to the existence of a modular form / on Tq(N) 
for some natural value TV, which we write / = ^ a n<l n ■ The L— function of E is 
thus given by the Mellin transform of /, £(/, s) = ^a„g™. In particular, the 
behavior of L(E, s) at s = 1 can be deduced from modular properties of E. 
Let E/Q be a modular elliptic curve and the global minimal model of the E/Q 
has prime conductor I. Let p be a prime and A p be the number of points of E p 
in F p . Then there is exists a modular form / on ro(7), / = X)nLi a n<l n where 
a p , p^i, equals p + 1 — A p . 

3 Some Algebraic Methods and Structures of 
Noncommutative Geometry 

At first remind two definitions. 
Hopf algebras. 

Let Ti. be an algebra with unit e over field k. Let a, 6 G 7i, /i(a, 6) = a6 the 
product in 7i, a G k, p : k — > 7i, p(a) = ae the unit, e : 7i — > k, e(a) = 1, the 
counit, A(a) = a <g> a the coproduct, 5 : H ^ H the antipode, such that the 
axioms 
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1) (1 (g) A) o A = (A (g) 1) o A (coassociativity); 

2) /x o(l®S)oA = p(S®l)oA=po£ (antipode). 
Then the system (7i, p, e, A, S) is called the Hopf algebra. 

Let A and £> be C*-algebras. Let K. be the C*-algebra of compact operators. If 
A®K,\s isomorphic to B ® /C then .4. is called Morita equivalent to 6. 
We give here some remarks to algebraic setting of papers jj], |[ f| . In a general 
context this algebraic setting includes: 

- Operator algebras. 

- Representation theory 

- K-theory. 

- Algebraic geometry. 

More specificaly: C*-algebras; finite projective modules; holonomy groupoid; 
groupoid for transformation groups; group C*-algebras; Morita equivalence; K- 
theory; von Neumann algebras; cyclic cohomology; invariant transversal mea- 
sures and the Ruelle- Sullivan current; Godbillon-Vey class; Hopf algebras. 
One of the paradigm of noncommutative geometry is to describe the geometry 
of ordinary space in terms of the algebra of functions and then deforming to 
the noncommutative case. By deformation theory as the part of moduli space 
theory some constructions of section 1 can be embedded into noncommutative 
geometry. 

4 Appendix. The Common Lisp text of the pack- 
ages CUTSET and CUTSETDG 

Rooted graph G is the graph that each node of G is reachable from a node 
r G G. By cutset of the graph we shall understand an appropriated subset 
of nodes (called cutpoints) such that any cycle of the graph contains at least 
one cutpoint. DFS is the abbreviation of Depth First Search method. During 
DFS we numbering nodes and label (mark) edges. By Tarjan 0] the DFS 
method has linear complexity. The packages are implemented on Allegro CL 
3.0.2 0, ||. The main function Cutsetdg of the package CUTSETDG com- 
putes Cutset (a subset of vertices which cut all cycles in the graph) of arbitrary 
rooted directed graph. It uses 3 functions: Adjarcn, Cutpoints and Unicut. For 
this program the author developed rather simple and efficient algorithm that 
based on DFS-method. The function is the base for Cutset methods for systems 
of procedures. The main function Cutset of the Package CUTSET computes 
Cutset of arbitrary rooted graph. It also uses 3 functions: Adjedgn, Cutpoints 
and Unicut. An algorithm for this function that based on DFS-method is also 
developed by the author. The algorithm is rather simple and efficient. The 
function is the base for Cutset methods. Package CUTSET 
Title: Cutset of rooted graph 

Summery: This package implements computation of a cutset of rooted graph. 
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The graph have to defined by adjacency list. 

Example of Call: (Cutset 'a) where "a" is a root of exploring graph. 
; ; Name : Cutset 

;; Title: Cutset of rooted graph 
;; Author: Nikolaj M. Glazunov 
; ; Summery : 

; ; This package implements computation of a cutset 

; ; of rooted graph. The graph have to defined by adjacency 

; ; list 

; ; Allegro CL 3.0.2 

(DEFUN Cutset (startnode) 

; ; startnode is a root of exploring graph 

; ; DFS - Depth First Search method for connected graph 

; ; cuts - cutset of the graph 

; ; st - stack 

; ; v - exploring node 

; ; sv - son of the exploring node 

; ; inl - inverse edges list 

; ; df - DFS-numbering of the node (property) 

; ; Adjed - adjacency list of the node (property) 

; ; 1, 2 - lables 

(SETF (GET startnode 'df ) 1) ; DFS-numbering is equal 1 
(SETF (GET startnode 'Adjed) 

(Adjedgn (LIST startnode))) ;;startnode obtained the a-list 

; ; property Adjed (adjacency edges) 

(PROG ( st v sv inl cuts) 
(PUSH startnode st) 

1 (SETQ v (CAR st)) ;; explored node received value from stack of nodes 

2 (CDND ( (NOT (EQ NIL (GET v 'Adjed))) 

(SETQ sv (CAAR (GET v 'Adjed))) 

(COND ( (EQ NIL (GET sv 'df)) 

(SETF (GET sv 'df) (+ 1 (GET v 'df))) 
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;; modification of the edge of son's adj-list 
(SETF (GET sv 'Adjed) 
(Adjedgn (LIST sv))) ;; node sv obtained the adj-list property 

; ; Adjed (adjesency edges) 
(SETF (GET v 'Adjed) (REMOVE (LIST sv v) (GET v 'Adjed) : TEST 'EQUAL) ) 
(SETF (GET sv 'Adjed) (REMOVE (LIST v sv) (GET sv 'Adjed) :TEST 'EQUAL) ) 
(PUSH sv st) 
(GO 1) 

) 

(T ; ; the node has number . 

; ; the edge is inverse 

(SETQ inl (CONS (CAR (GET v 'Adjed)) inl)) 
(SETF (GET v 'Adjed) (REMOVE (LIST sv v) (GET v 'Adjed) : TEST 'EQUAL)) 
(SETF (GET sv 'Adjed) (REMOVE (LIST v sv) (GET sv 'Adjed) :TEST 'EQUAL)) 
(GO 2) 

) 

) 

) 

(T 

(POP st) 

(COND ((NOT (NULL st)) 

(GO 1) 

) 

(T ; ; end 

(SETQ cuts (Unicut (Cutpoints inl))) 
(RETURN cuts) 

) 

) 

)) 

) 

) 

(DEFUN Adjedgn (PATH) 

(MAPCAN #' (LAMBDA (E) 

(COND ((MEMBER (CAR E) (CDR E) ) NIL) 
(T (LIST E)))) 
(MAPCAR #' (LAMBDA (E) 

(CONS E PATH)) 
(GET (CAR PATH) 'NEIGHBORS)))) 



(DEFUN Cutpoints (inl) 

(MAPCAR 'CAR inl)) 
(DEFUN Unicut (cpl) 

(COND ( (NULL cpl) NIL) 

(T (CONS (CAR cpl) 
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(Unicut (REMOVE (CAR cpl) cpl))) 

) 

) 
) 

Package CUTSETDG 
Title: Cutset of a rooted directed graph 

Summery: This package implements computation of a cutset of a rooted di- 
rected graph. The graph have to defined by adjacency list. 
Example of Call: (Cutsetdg 'a) where " a" is a root of exploring graph. 

The Common Lisp text of the package CUTSETDG 



; ; Name : Cutsetdg 

;; Title: Cutset of a rooted directed graph 
;; Author: Nikolaj M. Glazunov 
; ; Summery: 

; ; This package implements computation of a cutset 

; ; of a rooted directed graph. The graph have to defined by adjacency 
; ; list 

;; Example of Call: (Cutsetdg 'a) 

; ; where "a" is a root of exploring graph 

; ; Allegro CL 3.0.2 

(DEFUN Cutsetdg (startnode) 

; ; startnode is a root of exploring graph 

; ; DFS - Depth First Search method for connected graph 

; ; st - stack 

; ; v - exploring node 

; ; sv - son of the exploring node 

; ; inl - inverse edges list 

; ; df - DFS-numbering of the node (property) 

; ; Outarcs - adjacency list of Output arcs of the node (property) 
; ; 1, 2 - lables 

(SETF (GET startnode 'df ) 1) ; DFS-numbering is equal 1 
(SETF (GET startnode 'Outarcs) 
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(Adjarcn (LIST startnode) ) ) ;;startnode obtained the a-list 

; ; property Outarcn (Output arcs of the 
; ; node) 

(PROG ( st v sv inl cuts) 
(PUSH startnode st) 

1 (SETQ v (CAR st)) ;; explored node received value from stack of nodes 

2 (COND ( (NOT (EQ NIL (GET v 'Outarcs))) 

(SETQ sv (CAAR (GET v 'Outarcs))) 
(COND ( (EQ NIL (GET sv 'df)) 

(SETF (GET sv 'df) (+ 1 (GET v 'df))) 
;; modification of the edge of son's adj-list 
(SETF (GET sv 'Outarcs) 

(Adjarcn (LIST sv))) ;; node sv obtained the adj-list property 

; ; Outarcs (adjacency Outarcs) 
(SETF (GET v 'Outarcs) (REMOVE (LIST sv v) (GET v 'Outarcs) 
: TEST 'EQUAL)) 
(PUSH sv st) 
(GO 1) 

) 

(T 

(COND ((AND (> (GET v 'df) (GET sv 'df)) 
(NOT (EQUAL v sv) ) ) 
(SETQ inl (CONS (CAR (GET v 'Outarcs)) inl)) 
(SETF (GET v 'Outarcs) (REMOVE (LIST sv v) (GET v 'Outarcs) 
: TEST 'EQUAL)) 

(GO 2) 
) 

(T 

(SETF (GET v 'Outarcs) (REMOVE (LIST sv v) (GET v 'Outarcs) 
: TEST 'EQUAL)) 

(GO 2) 

) 

) 

) 

) 

) 

(T 

(POP st) 
(COND ((NOT (NULL st)) 

(GO 1) 

) 

(T ; ; end 

(SETQ cuts (Unicut (Cutpoints inl))) 
(RETURN cuts) 
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) 

) 

)) 

) 

) 

(DEFUN Adjarcn (PATH) 

(MAPCAN #' (LAMBDA (E) 

(COND ((MEMBER (CAR E) (CDR E) ) NIL) 
(T (LIST E)))) 
(MAPCAR #' (LAMBDA (E) 

(CONS E PATH)) 
(CAR (GET (CAR PATH) 'NEIGHBORS))))) 
(DEFUN Cutpoints (inl) 

(MAPCAR 'CAR inl)) 
(DEFUN Unicut (cpl) 

(COND ((NULL cpl) NIL) 

(T (CONS (CAR cpl) 

(Unicut (REMOVE (CAR cpl) cpl))) 

) 

) 
) 
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